home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD010b.dsk / GIL & SULLY.bas < prev    next >
BASIC Source File  |  2003-06-12  |  6KB  |  202 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM 
  3. 120  REM  GILBERT & SULLIVAN          ------- - --------
  4. 130  REM 
  5. 140  REM  PAUL RAYMER
  6. 150  REM 
  7. 160  REM  PAUL'S ELECTRIC
  8. 170  REM  COMPUTER
  9. 180  REM  BOX 42831
  10. 190  REM  LAS VEGAS NV 89116
  11. 200  REM 
  12. 210  REM  VI/XIII/MCMLXXXI
  13. 220  REM 
  14. 230  REM <CTRL-M><CTRL-M>(C) 1982 PEC<CTRL-M>   
  15. 240  HOME 
  16. 250  VTAB 5: PRINT "HIGHLIGHTS FROM"
  17. 260  VTAB 6: PRINT "GILBERT AND SULLIVAN"
  18. 270  FOR M = 1 TO 2000: NEXT M
  19. 1000  REM 
  20. 1001  REM  PINAFORE                    --------
  21. 1002  REM 
  22. 1020  HOME 
  23. 1030  PRINT "H.M.S. PINAFORE; OR, THE LASS THAT      LOVED A SAILOR"
  24. 1040  VTAB 5: PRINT "CAPTAIN CORCORAN (SOLO)"
  25. 1050  FOR M = 1 TO 2000: NEXT M
  26. 1060  HOME 
  27. 1070  INVERSE 
  28. 1080  FOR Z = 1 TO 4
  29. 1090  VTAB 2: HTAB 3 +H: PRINT  SPC( 8)
  30. 1100  FOR X = 3 TO 15
  31. 1110  VTAB X: HTAB 4 +H: FOR A = 1 TO 6: PRINT " ";: NEXT A
  32. 1120  NEXT X
  33. 1130  VTAB 16: HTAB 3 +H: PRINT  SPC( 8)
  34. 1140 H = H +9
  35. 1150  FOR M = 1 TO 1000: NEXT M
  36. 1160  NEXT Z
  37. 1170  VTAB 2: HTAB 11: PRINT " "
  38. 1180  VTAB 9: HTAB 10: PRINT "   ";
  39. 1190  FOR X = 2 TO 10
  40. 1200  HTAB 29: VTAB X: PRINT " ";
  41. 1210  NEXT X
  42. 1220  FOR X = 2 TO 10
  43. 1230  NORMAL 
  44. 1240  FOR M = 1 TO 3000: NEXT M
  45. 1250  VTAB 2: HTAB 11: PRINT " "
  46. 1260  VTAB 9: HTAB 10: PRINT "   ";
  47. 1270  FOR X = 3 TO 10: HTAB 29: VTAB X: PRINT " ";: NEXT X
  48. 1280  VTAB 2: HTAB 1: CALL  -868
  49. 1290  VTAB 16: HTAB 1: CALL  -868
  50. 1300  INVERSE 
  51. 1310  VTAB 3: HTAB 2: PRINT  SPC( 10)
  52. 1320  VTAB 9: HTAB 19: PRINT "   "
  53. 1330  FOR E = 3 TO 15  STEP 6
  54. 1340  VTAB E: HTAB 37: PRINT "  "
  55. 1350  NEXT E
  56. 1360  FOR M = 1 TO 3000: NEXT M
  57. 1370  NORMAL 
  58. 1380  VTAB 3: HTAB 1: CALL  -868
  59. 1390  VTAB 9: HTAB 19: PRINT "   ";
  60. 1400  FOR E = 3 TO 15
  61. 1410  VTAB E: HTAB 37: CALL  -868
  62. 1420  NEXT E
  63. 1430  FOR M = 1 TO 3000: NEXT M
  64. 1440  INVERSE 
  65. 1450  FOR X = 10 TO 15
  66. 1460  HTAB 3: VTAB X: FOR A = 1 TO 12: PRINT "HMS";: NEXT A
  67. 1470  NEXT X
  68. 1480  NORMAL 
  69. 1490 H = 0
  70. 1500  FOR B = 1 TO 2
  71. 1510  FOR X = 3 TO 9
  72. 1520  VTAB X: HTAB 4 +H: FOR A = 1 TO 6: PRINT " ";: NEXT A
  73. 1530  NEXT X:H = H +28
  74. 1540  NEXT B
  75. 1550  VTAB 20: HTAB 1
  76. 1560  FOR X = 1 TO 4: VTAB 15 +X: HTAB 1: FOR Y = 1 TO 38: PRINT "^";: NEXT Y: NEXT X
  77. 1570  FOR M = 1 TO 1500: NEXT M
  78. 1580  VTAB 12: HTAB 4: PRINT " PINAFORE ";: PRINT 
  79. 1590  FOR X = 1 TO 3
  80. 1600  VTAB 3 +X: HTAB 32: PRINT "XXXX"
  81. 1610  NEXT X
  82. 1620  FOR M = 1 TO 5000: NEXT M
  83. 1630  REM 
  84. 2000  REM  MIKADO                      ------
  85. 2010  REM 
  86. 2020  HOME 
  87. 2030 F$ =  CHR$(95)
  88. 2040 M$ = "MADE"
  89. 2050  PRINT "THE MIKADO; OR, THE TOWN OF TITIPU"
  90. 2060  VTAB 5: PRINT "FEATURING..."
  91. 2070  POKE 32,4: PRINT 
  92. 2080  PRINT "YUM-YUM": PRINT "PITTI-SING": PRINT "PEEP-BO"
  93. 2090  POKE 32,0
  94. 2100  FOR M = 1 TO 3000: NEXT M
  95. 2110  HOME 
  96. 2120  FOR Y = 15 TO 20
  97. 2130  FOR Z = 1 TO 2
  98. 2140  VTAB Y: HTAB Z *6: PRINT "SCHOOL";
  99. 2150  NEXT Z: NEXT Y
  100. 2160  VTAB 21: HTAB 1: FOR S = 1 TO 39: PRINT  CHR$(37);: NEXT S
  101. 2170  FOR X = 9 TO 14
  102. 2180  VTAB X: HTAB 8: PRINT "!"
  103. 2190  NEXT X
  104. 2200  VTAB 9: HTAB 9: PRINT F$F$F$F$;"."
  105. 2210  VTAB 10: HTAB 13: PRINT "!"
  106. 2220  VTAB 11: HTAB 10: PRINT "O  !"
  107. 2230  VTAB 12: HTAB 9: PRINT F$F$F$F$;"!"
  108. 2240  FOR R = 1 TO 2
  109. 2250  FOR Z = 1 TO 3
  110. 2260  FOR X = 19 TO 33
  111. 2270  VTAB 17 +Z: HTAB X: PRINT M$
  112. 2280  VTAB 17 +Z: HTAB X -1: PRINT " ";
  113. 2290  FOR M = 1 TO (200/R): NEXT M
  114. 2300  NEXT X
  115. 2310  VTAB 17 +Z: HTAB 38: PRINT "#";Z
  116. 2320  NEXT Z
  117. 2330  VTAB 11: HTAB 10: PRINT "?  !"
  118. 2340  FOR M = 1 TO 2000: NEXT M
  119. 2350 M$ = "MAID"
  120. 2360  NEXT R
  121. 2370  VTAB 11: HTAB 10: PRINT "OK !"
  122. 2380  FOR M = 1 TO 2000: NEXT M
  123. 2390  VTAB 11: HTAB 10: PRINT "O  !"
  124. 2400  FOR M = 1 TO 3000: NEXT M
  125. 2410  REM 
  126. 3000  REM  PIRATES                     -------
  127. 3010  REM 
  128. 3020  HOME 
  129. 3030  PRINT "THE PIRATES OF PENZANCE; OR, THE SLAVE  OF DUTY"
  130. 3040  VTAB 5: PRINT "MAJOR-GENERAL STANLEY"
  131. 3050  PRINT "AND THE CHORUS"
  132. 3060  FOR M = 1 TO 3000: NEXT M
  133. 3070  HOME 
  134. 3080  FOR X = 1 TO 2: READ W$(X): NEXT X
  135. 3090 C$ = " O   O   O   O   O   O                  -!- -!- -!- -!- -!- -!-                  A   A   A   A   A   A "
  136. 3100 E$ = " O                                      -*-                                      A"
  137. 3110 M$ = "I AM "
  138. 3120 A$ = "HE IS "
  139. 3130  FOR Z = 1 TO 2
  140. 3140  FOR L = 1 TO 5
  141. 3150  VTAB 3: HTAB L: PRINT E$
  142. 3160  FOR M = 1 TO 100: NEXT M
  143. 3170  HTAB L: CALL  -868
  144. 3180  NEXT L
  145. 3190  FOR M = 1 TO 1000: NEXT M
  146. 3200  HTAB 1: PRINT M$;W$(Z)
  147. 3210  FOR M = 1 TO 2000: NEXT M
  148. 3220 J =  INT(11 * RND(1)) +1
  149. 3230  FOR L = 1 TO J  STEP 2
  150. 3240  VTAB 15: CALL  -958
  151. 3250  VTAB 15: HTAB L: PRINT C$
  152. 3260  FOR M = 1 TO 100: NEXT M
  153. 3270  NEXT L
  154. 3280  INVERSE 
  155. 3290  FOR M = 1 TO 1000: NEXT M
  156. 3300  HTAB 1: PRINT A$;W$(Z)
  157. 3310  FOR M = 1 TO 2000: NEXT M
  158. 3320  PRINT 
  159. 3330  NORMAL 
  160. 3340  PRINT : PRINT : PRINT 
  161. 3350  FOR M = 1 TO 3000: NEXT M
  162. 3360  HOME 
  163. 3370  NEXT Z
  164. 3390  DATA  ENJOYING THE APPLE...,THE VERY MODEL OF A MAJOR-GENERAL!
  165. 4000  REM 
  166. 4001  REM  IOLANTHE                    --------
  167. 4010  REM 
  168. 4020  HOME :L = 0:C = 0
  169. 4030  PRINT "IOLANTHE; OR, THE PEER AND THE PERI"
  170. 4040  VTAB 10: PRINT "PRIVATE WILLIS"
  171. 4050  PRINT "OF THE GRENADIER GUARDS"
  172. 4060  FOR M = 1 TO 2000: NEXT M
  173. 4070  HOME 
  174. 4080  SPEED= 100
  175. 4090  PRINT "...IT'S COMICAL"
  176. 4100  PRINT "NATURE ALWAYS DOES CONTRIVE --- "
  177. 4110  PRINT "THAT EVERY BOY AND EVERY GAL"
  178. 4120  PRINT "THAT'S BORN INTO THE WORLD ALIVE"
  179. 4130  PRINT "IS EITHER A LITTLE LIBERAL"
  180. 4140  PRINT "OR ELSE A LITTLE CONSERVATIVE!"
  181. 4150  FOR M = 1 TO 2000: NEXT M
  182. 4160  SPEED= 255
  183. 4170  HOME 
  184. 4180  FOR X = 1 TO 10
  185. 4190 F =  INT(2 * RND(1)) +1
  186. 4200  IF F = 1  THEN A$ = "B": GOTO 4220
  187. 4210 A$ = "G"
  188. 4220 K =  INT(2 * RND(1)) +1
  189. 4230  IF K = 1  THEN L = L +1: GOTO 4250
  190. 4240 C = C +1
  191. 4250  FOR Z = 2 TO 20
  192. 4260  VTAB Z: HTAB 20: PRINT A$
  193. 4270  VTAB Z -1: HTAB 20: PRINT " "
  194. 4280  VTAB 20: HTAB 20: PRINT " ";
  195. 4290  FOR M = 1 TO 100: NEXT M
  196. 4300  NEXT Z
  197. 4310  IF K = 2  THEN  VTAB 20: HTAB 21 +C: PRINT "C";: GOTO 4330
  198. 4320  IF K = 1  THEN  VTAB 20: HTAB 19 -L: PRINT "L";
  199. 4330  PRINT 
  200. 4340  FOR M = 1 TO 100: NEXT M
  201. 4350  NEXT X
  202. 4360  VTAB 22: HTAB 1: PRINT "LIBERALS ";L;"    *    CONSERVATIVES ";C